home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
n_b_v203.zip
/
SCANNOT.DMO
< prev
next >
Wrap
Text File
|
1996-07-04
|
2KB
|
48 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME SCANNOT .DMO ║ by ╘════════════════─ ║ ║
│ │ ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
$INCLUDE "DAS-NB01.INC"
COLOR 7, 0
CLS
? "┌────────────────────────────────────────────────────────────
? "│ fSCANNOT% ( Start%, ANY )
? "│ fSCANrNOT% ( Start%, ANY, Chars?? )
? "├────────────────────────────────────────────────────────────────
? "│ Still better than the yellow pages but now we're looking for a
? "│ NON-OCCURRENCE of our character(s).
? "│ If you've not had a look, yet, at SCAN.DMO then do it now and all
? "│ will be clear!
? "└─────────────────────────────────────────────────────────────────────────
?
V$ = " This is a test "
PRINT CHR$(34); V$ CHR$(34)
P1% = fSCANnot%( 0, V$, &h0020 ) ' looking for the 1st NON <SPACE>
LOCATE 12, P1%+1 : PRINT CHR$(24)
LOCATE 13, P1%+1 : PRINT "│"
LOCATE 14, P1%+1 : PRINT "└──────────────────────────── NON<space>"
P2% = fSCANrNOT%( 0, V$, &h2020 ) ' looking for the last NON " "
LOCATE 12, P2%+1 : PRINT CHR$(24)
LOCATE 13, P2%+1 : PRINT "└─────────────── NON<space><space>"